home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr36
/
mapl0301.zip
/
MENUPLUS.STB
< prev
next >
Wrap
Text File
|
1993-04-13
|
3KB
|
108 lines
' $linesize:132
' $title: 'MenuPlus.Stb Copyright 1993 by Pete Eibl'
' Copyright (c) 1992 by Scott Thompson
' Name ...............: MenuPlus.Stb
' First Released .....: Feb 2, 1993
' Subsequent Releases.:
' Copyright ..........: (c) 1992 by Scott Thompson
'
' Purpose.............: remove MenuV30 mods from Mpale code
'
'
'
' Parameters..........: Most parameters are passed via a COMMON statement.
'
' $SUBTITLE: 'MenuPlus - Stub File to remove MENUPLUS.BAS form Maple code'
' $PAGE (C) 1992 by Scott Thompson
' additional mods (C) by Pete Eibl 1993
'
' $INCLUDE: 'RBBS-VAR.MOD'
' SUBPROGRAM NAME -- MenuPlus
'
'
' SUBPROGRAM PURPOSE -- nice menu for RBBS
Sub MenuPlus (PR) Static
End Sub
100 ' $SUBTITLE: 'SysMenuPlus - sub to display RBBS-PC SYSOP menu enhnace vrs'
' $PAGE
'
' NAME -- SysMenuPlus
'
' INPUTS -- PARAMETER MEANING
'
' OUTPUTS -- NONE
'
' PURPOSE -- TO DISPLAY enhanced SYSOP MENU ON THE LOCAL SCREEN
'
SUB SysMenuPlus (AOK) STATIC
AOK = ZFalse
End Sub
'
112 ' $SUBTITLE: 'SysMenu - sub to display RBBS-PC SYSOP menu'
' $PAGE
'
' NAME -- SysMenu
'
' INPUTS -- PARAMETER MEANING
'
' OUTPUTS -- NONE
'
' PURPOSE -- TO DISPLAY RBBS-PC's SYSOP MENU ON THE LOCAL SCREEN
'
SUB SysMenu STATIC
Call SysMenuPlus (AOK) 'Pe Menu174
If AOK = ZTrue then _ 'Pe Menu174
Exit Sub
ZLocalUser = ZTrue
ZSnoop = ZTrue
ZNonStop = ZTrue
CALL CheckTime (TIMER, ZDelay!, 1)
CLS
ZStopInterrupts = ZTrue
ZBypassTimeCheck = ZTrue
CALL BufFile ("MENU0",WasX)
ZNonStop = ZFalse
ZBypassTimeCheck = ZFalse
ZLocalUser = ZFalse
IF NOT ZOK THEN _
Call GetRBBSString(277,RBBSString$) : _ 'Pe 01/26/93
OutTxt$ = RBBSString$ : _ 'Pe 01/26/93
CALL LPrnt(OutTxt$,1)
LOCATE 2,13
CALL LPrnt(LEFT$(ZVersionID$,13),0)
LOCATE 2,42
CALL LPrnt(ZNodeID$,0)
LOCATE 2,60
WasX$ = DATE$
CALL LPrnt(LEFT$(WasX$,6) + RIGHT$(WasX$,2),0)
LOCATE 2,74
CALL LPrnt(LEFT$(TIME$,5),0)
IF ZFMSDirectory$ <> "" THEN _
LOCATE 6,76 : _
CALL LPrnt("YES",0)
IF ZExtendedLogging THEN _
LOCATE 8,76 : _
CALL LPrnt("YES",0)
IF ZFossil THEN _
LOCATE 10,76 : _
CALL LPrnt("YES",0)
LOCATE 12,75 : _
CALL LPrnt(ZComPort$,0)
LOCATE 14,75
CALL LPrnt (STR$(CINT(FRE("A")/1024)) + "k",0)
IF ZDebug THEN _
LOCATE 22,76 : _
CALL LPrnt("Yes",0)
END SUB
'
'
Sub LocateMenu (RingBack,ScreenCleared,AOK,FF) Static
AOK = ZFalse
END SUB